home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 10
/
FM Towns Free Software Collection 10.iso
/
tos_updt
/
fmcity
/
palcom
/
auto
/
script
/
billcom.mx
< prev
next >
Wrap
Text File
|
1995-02-10
|
2KB
|
88 lines
//--------------------------------------------------------------------------//
// PALCOM V2.1 L10 //
// 自動通信:課金情報巡回スクリプト //
// //
// CopyRight(C) 1994/10/20 //
// FUJITSU PERSONAL COMPUTER SYSTEMS LIMITED //
// written by C-cube Soft T.Nakamura //
//--------------------------------------------------------------------------//
event @OPEN.EXTERN {
$AUTO.WAIT15 = AUTO.getWaitChar( 15 );
$AUTO.WAIT60 = AUTO.getWaitChar( 60 );
//--- 課金情報に入る ---//
sys.stopIntRec();
loop {
AUTO.putStr("GO BILL\r");
$errFlg = 1;
comtable( $a, 300 ) {
interval { AUTO.haltCheck(); }
"GO BILL\n" { $errFlg = 0; exit; }
}
if( $errFlg == 0 ) {
exit;
}
AUTO.putStr("\r");
AUTO.waitPrompt( #TRUE );
continue;
}
$tmpList = [];
$inFlg = 0;
comtable( $a, 0 ) {
interval { AUTO.haltCheck(); }
$AUTO.WAIT60 { AUTO.putStr("\r"); }
"BILL\n" { $inFlg = 1; }
">\w\w" { exit; }
}
if( $inFlg == 0 ) {
//--- 課金情報に入れなかった ---//
$errMsg = ["課金情報に入ることが出来ませんでした。",
"課金情報の巡回を中断しました。"];
AUTO.error("課金情報巡回", $errMsg );
return;
}
//--- 課金情報を表示する ---//
AUTO.sendCommand("SET PAGE OFF");
AUTO.putStr2("2\r");
$LogId = AUTO.getLogFileId();
$IdxId = AUTO.getIdxFileId();
$ptr = file.tell( $LogId );
$mode = 1;
comtable( $a, 0 ) {
interval{ AUTO.haltCheck(); }
"\n" {
$ptr2 = file.tell( $LogId );
}
">\w\w" { // 区切り
if( $mode == 1 ) {
AUTO.putStr2("2\r");
$ptr2 = file.tell( $LogId );
$mode = 2;
} elif( $mode == 2 ) {
$str = data.toString( list.getNth( time.getDate(), 2 ));
AUTO.putStr2( str.join([$str, "\r"], "" ));
$ptr2 = file.tell( $LogId );
$mode = 3;
} elif( $mode == 3 ) {
AUTO.writeIdx([[0x501,[16,[1,6,-1,-1,-1,-1,-1,-1,-1,-1]]],
[0x303,[0x01,0x00,$ptr,$ptr2-$ptr,0,0,0]]] );
exit;
} else {
exit;
}
}
}
sys.startIntRec();
return;
}
event @CLOSE.EXTERN {
sys.startIntRec();
return;
}
event @ERROR {
sys.startIntRec();
AUTO.fatalError();
event.mainLoop();
}